home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 65 / 065.d81 / ascii input < prev    next >
Text File  |  2022-08-26  |  402b  |  3 lines
  1.  
  2.  
  3. 50000 q9$="":u9=53280:poke198,0
  4. 50010 geta$
  5. 50020 poke646,rnd(1)*15+1:print"{CBM-@}";:ifa$=""then50010
  6. 50030 ifa$=chr$(13)thenprint" ":return
  7. 50040 if(a$=chr$(20)andlen(q9$))thenq9$=left$(q9$,len(q9$)-1):goto50080
  8. 50050 iflen(q9$)>=l9%thent9%=peek(u9):pokeu9,1:pokeu9,t9%:goto50010
  9. 50060 ifa$<" "or(a$>chr$(127)anda$<chr$(160))ora$=chr$(34)then50010
  10. 50070 q9$=q9$+a$
  11. 50080 print""a$;:goto50010
  12.  
  13. ready.
  14.  
  15.  
  16.